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3 ; 
pes ; 
; 5 9 : 
3 1 * ; 
; 5 8S 1 !® * ; 
; 8 I: 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . ; 
; 7 09 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. © ; 
; 19 i? : :* ALL RIGHTS RESERVED. * ; 
° :* + ° 
; i Boi ¢ 1 Ie ha her: * 44 FURNISHED UNDER A LICENSE AND MAY BE USED AND sorace * : 
; 1 1 1 !* ONLY IN ACCORDANCE WITH THE TERM F SUCH LICENSE AND WITH Mi * : 
; 14 0014 1 !* INCLUSION OF tHe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY * F 
; 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
: 16 B018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
3 i? Bete : 1* TRANSFERRED. * | 3 
; 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
$ $9 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
; 1 bos4 : » CORPORATION. * : 
Ps :* ® | Ps 
: $§ $098 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
3 $e BoSe : SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
3 : + $ 
; @& Bas8 1 Ie + 

: si Bo56 : Re RARER AERA AAA AERA ARA AERA AAE AAA A ATER AAARER KATA eee eee 

: 29 0009 1 I+ | 

; 0 0030 1! 

; 1 boa, : FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 

fa 0088 1 | ABSTRACT: | 

3 0034 1! ss Search thru a SIDR array and return the first 

3 5 0035 1! non-deleted record 

: B36 7: 

3 7 0037 1! 

; & 0038 1 | ENVIRONMENT: | 

; 9 0039 1! 

; 40 0040 1! VAX/VMS OPERATING SYSTEM 

(2 eT 

; rk 3 iB 

3 44 » 9% 

: 45 45 1 ' AUTHOR: Todd M. Katz RE-CREATION DATE: 23-Jun-1982 

; 46 oe6 1! 

Py 47 104 1! 

; rt 8 ! : MODIFIED BY: 

: $0 50 1 / V03-022 RASO164 Ron Schaefer 29-Jun-1983 | 

,; 3 bes : Make references to RMS$RU_RECLAIM be LONG_ RELATIVE addressing. 

: 3g §38 1! v03-021 Bcnoogs aria del C. Nasr 24-Mar-1983 

; §5 Bee ' Linkages Toswattn dene Po 

; 56 056 1 | v03-020 TMK0013 Todd 11-Mar-1983 

Sar 0057 1! Make a change to RASFOLLOW. PTR so that the primary data bucket 
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containing the target record is exclusively accessed if it i 
possible that some reclamation maybe done (the file is write 
accessed and Recovery Unit Journallable). 


MCNOO01 Maria del C. Nasr 28-Feb-1983 
Reorganize Linkages 


TMKO012 Todd M. Katz 18-Jan-1983 

Add support for Recovery Unit Journalling and RU ROLLBACK 
Recovery of ISAM files. Support involves modifications to 
the routine RMSFOLLOW_PTR. 


The purpose of the routines within this module is to find the 
next non-deleted primary data record by means of an alternate 
index. Towards this goal, RMS will search all SIDRs with key 
values matching the key in keybuffer 2 according to the 
characteristics of the search, until such a record is found. If 
curios its search RMS encounters records that are marked 
RU_DELETE, RMS will try and delete them for good at this time 
provided it has write access to the file and the Recovery Unit 
in which they were deleted has completed successfully. 


If RMS is able to delete a ge tear? data record marked RU_DELETE, 
then RMS proceeds to continue loo ing for a non-deleted primary 
data record just as if it had encountered a deleted record in 
the first place. Likewise, it RMS is unable to delete a record 
that is marked RU_DELETE because it does not have write access 
to the file, it will also continue its search. However, if RMS 
is unable to delete a RU_DELETE marked record for good because 
the Recovery Unit in which it was marked RU_DELETE has not 
successfully terminated, then RMS returns this record as if it 
was the next non-deleted primary data record, and lets a higher 
higher level routine decide whether or not to wait for the 
Recovery Unit in which the record was deleted to complete, or to 
return an error to the user. 


RMS will also re-format any records that are marked RU_UPDATE 
and are in a special format provided the stream has write access 
to the file, and the Recovery Unit in which the record was 
updated has terminated. 


In addition to this change, I have made a further enhancement to 
the routine RMSSEARCH_SIOR. At the prepens time, when a SIDR 
array element is encountered that should have been marked 
deleted, it is marked deleted without fesover tng any space if 
and only if the stream has write access to the file, and the 
file is not being shared. I have changed this by removing the 
restriction that to mark a SIDR element deleted the file can not 
be shared. Furthermore, RMS will now not only mark such elements 
as deleted, but reclaim as much space as possible as long as the 
stream has write access to the file. 


TMKO011 Tod 05-Jan-1983 


odd M. Katz 
Eliminate the routine RMSFND_SDR_ARRY. This global routine is 
~~ being carted in only one place, and has been folded directly 
nto the code. 
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v03=016 TMKO010 Todd M. Katz 04-Jan-1983 

If cures positioning to the next ay data record by means 

of an alternate index, RMS encounters a SIDR element that is 

not marked deleted although the pr | data record it points 

to is either deleted or the alternate ey does not match the 

key of the SIDR, then RMS may mark the element deleted provided 

the file is not he shared and has been open for write access 

before it continues its search for the next primary data record. 

If either of these two conditions is violated, RMS can not mark 

the element deleted, but just positions past it to continue the 

search. What it should also be coins when it positions past the 

element in this case is increment the count of the number of 

preceeding elements in the current SIDR array. RMS was not 

doing this and this represents a bug. 


| 
| 
| 
v03-015 TMK0009 Todd M. Katz 07-Dec-1982 | 
Remove all the fengeent ign ing code. Sigh. This code was 
originally required to fix the 1.5 SIDR deadlock problem. | 
have come up with a different way to fix this problem. I have 
changed how buckets are locked during SDELETEs. A stream can now 
never hold onto a primary data bucket while attonpt ing to 
access a SIDR bucket. Therefore, a stream is able to hold onto 
a SIDR bucket while waiting for a primary data bucket without 
the possibility of a deadlock existing. Thus, there is no 
Longer any need to perform any type of SIDR re-positioning, and 
I have eliminated wil the new code that used to do it. | 


v03-014 TMKO008 Todd M. Katz 12-Nov-1982 
The routine RMSFND_SDR_ARRY requires as input, the size of the 
soreneery key it is to search for in IRB$B_KEYSZ. This IRAB 
cell might not have the correct key size when this routine is 
called from within RMSSIDR_REPOS. Yet, RMSSIDR_REPOS can not 
meresy overwrite the cell with the correct ney size because 
RMS m gnt be performing a generic search at the 


MEW —OVDANOUES WR) (OO ONOu 


time SIDR 


re-positioning was required, and might later need the value 
stored there. Therefore, RMS must save the value in IRB$B KEYSZ 

when the routine RMSSIDR_REPOS is entered, set it to the full 

ney size, and restore the origtast value when the routine is | 
exited. {f this is not done, the poss tert tty exists that 

RMSFND_SDR_ARRY might position RMS to the wrong SIDR instead 

of to the SIDR it was positioned to when the routine was first 


entered. 


v03-013 TMKO007 Todd M. Katz 99-Hov~1982 
Make another change to the SIDR re-positioning code. IF RMS is 
unable to position either to the primary data record, or back to 
the SIDR ones SIDR re-positioning, then before returning RMS 
ascertains whether it was unsuccessful in positioning to the | 
current SIDR ervey. or whether it was unsuccessful a 
positioning even to the SIDR itself. The former case represents 
an error, the latter is reasonable because the SIDR could have 
been deleted and the space it occupied reclaimed. During this 
attempt to Pypen tien to the current SIDR, performed by the 
routine RMSFIND_SIDR, RMS will position either to the current 
SIDR (which would represent an error), or to the next SIDR that 
followed this SIDR. However, if RMS is unable to position to the 
current SIDR and there is no next SIDR (the end-of-file is 
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encountered), then RMSFIND_SIDR returns an error of RNF. 

Unfortunately, the routine RM$SIDR_REPOS can not return this 

$tatus to its caller (RMSSEARCH_SIDR) because that would 

indicate that RMS was unable to find the primary data record 
during Aye gh ly - a ver grove error and definitly not 

the case here. When nssiok REP S$ returns an error of RNF 

signallin this very bad condition, RMS converts it into a BUG 

error, and returns it to the user. However, the error RMS does 

want to return from RMSSEARCH_SIDR in the case when RMS finds 

both the primary data record and the SIDR deleted durin 

re-positioning and is unable to position to the next SIDR 
because of encountering the end-of-file is in fact RNF! In 

order to arrange things so that this error will be returned 

under these circumstances, 1 have changed RMSSIDR_REPOS so 

that it will return an error of EOF when RMSFIND SIDR returns 

RNF and RMSSEARCH_SIDR so that it changes the EOF returned by 


RMSSIDR_REPOS back to RNF. 


vO3-012 TMKO006 Todd M. Katz 29-0¢ t-1982 
If RMS is successful at finding the target primary data record 
within RMSFOLLOW PTR, then save the current index descriptor and 
replace it with the index descriptor for the primary key before 
determining record overhead and size of the primary data record. | 
After this determination is made, the descriptor is restored. | 


v03-011 TMKOOOS Todd M. Katz 22-Sep-1982 
If a SIDR re-positioning is required, and key compression is 
enabled, then reset the variable containing the address of the 
last record in the bucket encountered with a zero front 
compressed key to be the first record in the bucket. This 
resetting is only soqunees when RMS must continue the search 
for a non-deleted primary data record within the current SIDR, 
and when the possibility exists that the search maybe continued | 
in a SIDR with a completly different key value necessitating | 
its expansion into keybuffer 2. This resetting is ye tig 
because Gur ing the re-positioning RMS had to release the SIDR 
bucket, and then reclaim it, and while it didn't have it locked, | 
Says ing might have pepgened to its contents. The reason a | 
the variable is initialized with the address of the first SIDR 
in the bucket is because the key of the first SIDR must be zero 
front senpresees, and it is the last known record with such a 
property. 


v03-010 KBT0329 Keith B. Thompson 22-Sep-1982 
Change check for sharing to sfsb test 


vO3-009 TMK0004 Todd M. Katz 06-Sep-1982 
rhe rete IRBSB_SRCHFLAGS is now a word. Fix all references 
o it. 


POPOROROROPOPOfOY DO 000 COMODO DOODOWOOO VIANA 


The routine RMSSEARCH_SIDR maybe called to search SIDR arrays 
for a non-deleted primary data record either when RMS is 
positioning sequentially, or when RMS is paste ventas randomly 
y an alternate key value. When | initially wrote this routine 
| aistekenly wrote it for the sequential case only. Since in 
this case RMSSEARCH SIDR only has to search those SIDRs whose 
keys exactly match fhe full size search key, this mean't that 
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positioning randomly by key was broken for all cases involving 
generic search keys, greater-than searches, or greater-than or 
equal searches when more than one SIDR had to be searched. 
The fix for this set of problems was sctualty quite simple. If 
the search characteristics are not setup such that RMS is 
performing an exact match search, the routine RMSSEARCH_SIDR 
saves the search key in keybuffer 5, and extracts the key of 
the current SIDR into keybuffer 2. When this SIDR is exhausted 
and a non-deleted primary data record has not been found, RMS 
returns the search key saved in keybuffer 5 to keybuffer 2, 
and determines whether the ay of the next SIDR matches the 
i 


5 
(1), 


ono 


VPwrn— 


search key according to the characteristics of the search. If 
so, this whole cycle repeats itself, otherwise, this routine 
returns the appropriate error to its caller. 


I also made a change to RASSIOR REPOS involving the case when 

RMS is unable to position to a primary data record because it 

has been deleted, and when it re-positions back to the SIDR 

it finds that it too has been deleted. In such a case, because 

RMS was unable to re-position to the SIDR, it did a 
reater-than or equal search and had peoteience exactly to the 
IDR that followed. This is exactly where RMS wants to continue 
its search for a non-deleted primary data record provided the 

key of this SIDR matches search key accardtne to the search 

characteristics. Therefore, all the routine RMSSIDR_REPOS has to 
o is return a 0. The routine RMSSEARCH_SIDR, when Tt sees this 
- knows that the current SIDR has been exhaused (or in this 

case deleted), and that it should go determine whether the 

search can continue with the SIDR it now finds itself 

positioned to. 


v03-008 KBT0298 Keith B. Thompson 24-Aug-1982 
Reorganize psects 


v03-007 TMKO003 Todd M. Katz 10-Aug-1982 
Change the Linkage of RMSSIDR_REPOS. The address of the 
beginning of the SIDR is now Both in the input parameter 
List and in the output parameter list. This is necessary 
instead of just passing its address to this routine, an address 
of a stack location, because this routine will allow RMS to 
stall, and when RMS resumes after a stall, the stack addresses 
are not necessairly the same as they were before the stall. 


V03-006 TMK0002 Todd M. Katz 10-Aug-1982 
When RMS positions to the first non-deleted primary data 
record by alternate key, it first skips past all entries 
within a SIDR that are marked deleted until either the 
end of the SIDR is encountered, or a non-deleted entry is 
found. Using this non-deleted entry, RMS attempts to position 
to the primary data record. If RMS finds that the data record 
is in fact deleted, it wants to mark the SIDR entry deleted, 
and return to the (oop that looks for a non-deleted SIDR entry. 
There it starts its search for a non-deleted SIDR array element 
with the current SIDR element which of course RMS has just 
marked deleted. Meuever. RMS can only mark such a SIDR entry 
deleted if it has write access to the file and the file is not 
being shared. Thus, the way this RMS currently works, if the 
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file was being yeeree or had not been opened for write access 
and RMS has positioned to a non-deleted SIDR array element 
which potnsed to a deleted primary data record, RMS would not 
mark the SIDR gntey deleted, it would return to the loop which 
searches for the first ae peed re SIDR entry starting with the 
current entry, and it would position to the very same 
non-deleted entry (which points to a deleted er mary data 
record). The result is an infinite loop! To fix this problem, 
RMS will now immediately position past the current element to 
the next one when it finds that the current non-deleted SIDR 
element points to a deleted primary data record, and it 

unable to mark the SIDR element deleted at that point. 


v03-005 TMKO001 Todd M. Katz 22-Jun-1982 
Revised entire module. 
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LIBRARY ‘RMSLIB:RMS'; 

REQUIRE ‘RMSSRC:RMSIDXDEF'; 

| Define default PSECTS for code 


IWAAIAIAI AAAI II onononononononononopornonon 


RMSRMS3(PSECT_ATTR), 
PLIT = RMSRMS3(PSECT-ATTR): | 


: Linkages 
LINKAG 
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Linkages for Local Routines 


RLSFOLLOW_PTR = JSB () 
: GLOBAL (COMMON RABREG, R_REC_ADDR, R_IDX_DFN), 
RL$POS_BY_COUNT = JSB (REGISTER = 1) 
: GLOBAL (COMMON_RABREG, R_REC_ADDR, R_IDX_DFN); 


External Routines 
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: 290 
: 91 
: 3 
: 394 
: 395 
: $99 
: 398 
: 399 
: 300 
: 91 
; BS 
: 304 
: 305 
: 306 
: 307 
: 308 
: 309 
: 310 
BN 
: i§ 
; 14 
: 15 
: i3 
: 318 
: 319 
: 320 
: 321 
: 328 
> 324 
: 325 
i 35 
; 28 
; $0 
; 3 
: ; 
-: 
; 340 
> 341 
: 342 
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EXTERNAL ROUTINE | 
RMSCOMPARE _REC : RLSRABREG_67, | 
RMSCSEARCH” TREE RLSRABREG_67, 

V_RF RLSRABREG_67, 
MSF IND BY _RRV RLSRABREG_67, 
x st : RLSRABREG- 
RMSGETAXT_ARRAY : RLSRABREG-67, 
RMSRECORD-KEY : RLSPRESERVE1, 
RMSREC_OVAD : RLSREC_OVHD, 
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RMSRLSBKT 


RMSUNPACK_REC 
Forward Routine 
FORWARD ROUTINE 


RMSPOS_BY_COUNT 
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: RLSPOS_BY_COUNT; 
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H 5 418 1 XSBTTL "RMSFOLLOW_PTR’ 

3 : r : ROUTINE RMSFOLLOW_PTR (VBN, ID) : RLSFOLLOW_PTR = 

: s 4 ; 1 !4¢ 

3 4 ¢ 1! 

; oy r Z : FUNCTIONAL DESCRIPTION: 

: 66 425 1 This routine recieves as input the RFA of an allegedly non-deleted 

3 4 § 1! primary data record containing a secondary key of specific value. It 

; 364 04 1! positions to that primary data record, and checks whether it is deleted 
: 5 0428 1! and if not, whether the sopeneers key whose specific value is stored 

3 r$] re 4 : } in keybuffer 2 has been deleted from the primary data record. 

; 368 0431 1! If RMS finds that the target pr ieery data record is marked RU_DELETE 

; 369 04 ¢ 1! and the Recovery Unit in which the record was deleted is still active, 
: 370 04 1! then RMS returns positioned to this record and lets a higher level 

3; 371 0434 1! routine decide what to do. If the Recovery Unit in which the record was 
3; S72 0435 1! deleted has successfully terminated, then RMS will return an error of 
ep 0436 1! DEL after mare ing this RU_DELETEd record (if it has write access to 

3 a Be i : the file), and releasing the primary data bucket. 

3 re 0439 1! If RMS encounters a record that is marked RU_UPDATE and is in a special 
: 37 0440 1! format then RMS will return positioned to this record after 

3; of 0441 1! reformatting it. The porermess ig is done if RMS has write access to 

; 379 0442 1! the file, and the Recovery Unit in which it was updated has 

; 380 0443 1! successfully terminated. 

; $6) 0444 1! 

5 o¢ 0445 1 ! CALLING SEQUENCE: 

: 38 0446 1! 

; 384 0447 1! BSBW RMSFOLLOW_PTR () 

3 3e9 0448 1! 

; 386 0449 1 ! INPUT PARAMETERS: 

: 387 0450 1! 

; 388 0451 1! VBN - RFA VBN of the target primary data record 

3 34 Bee ; ID - RFA ID of the target primary data record 

; 391 0454 1 ! IMPLICIT INPUTS: 

3 4 455 1! 

; 3 456 1! IDX_DFN - address of current index descriptor 

; 3594 0457 1! IDX$B_KEYSZ - size of secondary key ‘ 

3 $o2 Bo 38 : IDXS$SW_MINRECSZ - minimum size of record to contain key 

; 397 0460 1! IF - address of IFAB 

; 38 461 1! IFB$B_KBUF SZ - size of each keybuffer 

3 462 1! IFB$B_PLG_VER - prologue version of file . 

; 400 0465 1! IFBSV_ - if set, the file is Recovery Unit Journallable 
3 £2) Bees : IFBSV_WRTACC - if set, file is open for write access 

3 408 Deeg 1! IRAB - address of IRAB 

: 404 0467 1! IRBSL_CURBDB - address of SIDR bucket's BDB 

; 405 468 1! if re-positioning) 

; 406 469 1! IRBS$L_KEYBUF - address of geyeut tors 

3 ret rth ! IRBSL_RECBUF - address of internal record buffer 

; 409 472 1! REC_ADDR - address of SIDR array element 

: 219 oth ' (invalid if re-positioning) 
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v04- RMSFOLLOW_PTR -Sep- DIS 

3 ttg 475 1 ! OUTPUT PARAMETERS: 

; 4) 476 1! NONE 

; 6414 477 1! 

3; 415 478 1 ! IMPLICIT OUTPUTS: 

3 213 479 1! 

3; «41 480 1! IRAB 

; 418 481 1! IRBSL_CURBDB - address of primary data bucket's BDB (success) 
; 419 04 ¢ 1! or contents on input (failure) 

: 420 04 1! IRBSL_NXTBDB = contents on input (success) 

: 421 0484 1! or 0 (failure) 

3 «6 ¢ 0485 1! IRBSL_RECBUF - unpacked primary data record 

: 4 8 o 1} (success and prologue 3 file) 

; ? ¢ rs i ’ } IRB$V_RU_DELETE - if set, do not reclaim SIDR array space 

; 426 §c89 1! REC_ADDR - address of primary data bucket (success) 

; 427 0490 1! or contents on input (failure) 

: 428 0491 1! 

: 429 0492 1 ! ROUTINE VALUE: 

; 4350 0495 1! 

3: 431 0494 1! suc = non-deleted primary data record successfully positioned to. 
; +38 0495 1! DEL - primary data record deleted or specific alternate key deleted 
; 43 0496 1! from primary data record. 

; 434 0497 1! RNF - pet data record not found. 

3 4655 0498 1! various 1/0 errors 

; 436 0499 1! 

3 437 0500 1 ! SIDE EFFECTS: 

: 438 0501 1! 

; 439 b20§ 7 | On success, REC_ADDR points to the arsnery data record (which will be 
; 440 0505 1! unpacked if the file's prologue version is 3), the primary data 

: 441 0504 1! bucket's BDB address is stored in IRBSL_CURBDB, and IRBSL_NXTBDB 
3; 44 0505 1! contains whatever was in IRB$L_CURBDB on input. ; 

3: 44 0506 1! On any and all failures, REC_ADDR points to whatever it had pointed to 
> 444 0507 1! on input IRB$L_CURBDB contains whatever it contained on input, 

3; «6445 0508 1! and any buckets accessed have been released. 

3 446 0509 1! If the record is marked RU_DELETEd, it might have been deleted. 

> 447 0510 1! If the record is marked RU_UPDATE or RU_DELETEd and RMS is unable to 

: 448 0517 1! recover any space from it because the Recovery Unit in which the 
3 6449 b21§ Be record was modified has not completed, then RMS sets the state 

; 450 0515 1! bit IRB$V_RU_DELETE whenever it makes a decision to return an error 
3 463) 0514 1! status of RMS$_DEL and the file has been opened for write access. 
; $36 0515 1! This will guarentee that the serespensing IDR array element will 
; «45 0516 1! only be marked RU_DELETE, and no space will be reclaimed from it. 
: eee O317 ' If the record is marked RU_UPDATEd, it might have been reformatted. 

3; 456 0819 1 f= 

: 457 0520 1 

3 $38 B2 1 BEGIN 

: 460 5 4 BUILTIN 

es: 358 whe 

3 468 2 $ EXTERNAL REGISTER 

; 528 R_IDX_DBFN_STR 

: 3 3 R-REC-ADDR_STR; 

3 0531 LOCAL 
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yoe2000 RMSFOLLOW_PTR 137808-1 382 % 8:24 DISKSVMSMASTER: CRMS.SRC RM3SSIDR.B32: 1° (2) 

: 469 SAVE_SDR_ADDR, H 
; £79 5 g STATOS; ~ ; 
3; 47 535 ! Save the current SIDR errey's address, and the address of the SIDR ; 
3 rhb 82 § } bucket's BDB while performing the primary data record lookup. ; 
; 475 b2 8 SAVE_SDR_ADDR = .REC_ADDR; : 
: 476 0959 IRABCIRBSL_NXTBDB] =~. IRABCIRBSL_CURBDBI; : 
; 478 0541 ! If the file is write accessed and qeqouery Unit Journallable, then make : 
; 479 3206 ! sure the primary data bucket containing the target record is exclusively : 
; rtf bee? accessed in case reclamation is required. : 
: ret 0545 IF .IFABCIFBSV_WRTACC) 3 
: 48 0546 N : 
> 484 0547 . IFABCIFB$V_RUJ ; 
; 485 0548 : 
; rey b2e6 IRABLIRBSB_CACHEFLGS] = CSHSM_LOCK; : 
; 488 0551 ! Position to the primary data record pointing at by the SIDR array element 3 
; 489 0336 ' RMS has positioned to. : 
; 490 055 ! F 
; $33 Bede : STATUS = RMSFIND_BY_RRV (.VBN, .ID, 0); : 
; 449 0556 ' If RMS is successful at positioning to tthe target primary data record 3 
+ 494 Beet rs ! only to find that it has been deleted within a Recovery Unit, subject ; 
: 495 0558 § ! this record to further processing before deciding what to do with this 3 
; 496 0559 ' record. : 
; 497 0560 § : F 
: 498 0561 IF .STATUS 3 
; 499 B20g 2 : 
; 500 05635 2 -REC_ADDRCIRC$V_RU_DELETE] : 
: 501 yee ¢ THEN 3 
: 206 565 BEGIN : 
; 0566 3 : 
3; 504 0567 3 LOCAL 3 
; 505 B28 3 TEMP_STATUS; 3 
; 506 0569 3 , 3 
3 307 0570 3 ! If the Recovery Unit in which the current record was deleted has 3 
; 508 0571 ; ! not completed, or if the file has not been opened for write access 3 
; 509 6276 !' then RMS will not be able to reclaim any space from the record. RMS 3 
; 510 057 ! may still want to consider this record as a non-deleted primary data 3 
; a1) Bare record though. : 
; 218 0576 4 IF NOT (TEMP_STATUS = RMSRU_RECLAIM()) 3 
3 316 0577 3 THEN 3 
; 315 0578 4 BEGIN 3 
; 516 0579 4 3 
g Sir 0580 4 ! If the current record was deleted within a cyrrenthy active 3 
; 518 bees & ! Recovery Unit and it was this stream that deleted it; or, if : 
5 233 5 ¢ 4 i this stream is able to lock the ecord but does not have write : 
; 520 05 4 ' access to the file, then RMS wants to treat this record as if it 3 
3 (Se) 0584 4 ' is actually deleted. To do so, RMS will return a status of 3 
; 3 § bea? 4 i RMS$_DEL so that the search will continue. However, RMS will also : 
3; 2 286 4 ' set the state bit IRBSV_RU_DELETE, if it has write access to the : 
3: 524 0587 4 ' file, so that no space Ts feclaimed from the corresponding SIDR 3 
s 52es 0588 4 ' array element. 3 


nN 9 

RM3SSIDR 16-Sep-1984 7:5 VAX-11 Bliss-32 V4.0-74 Page 11 

yoe000 RMSFOLLOW_PTR 12-808 -138e % 8:24 DLSKSVMGMASTERSLAMS: SRCIRMSSSIDR.B32-4° 3} 

H 9 4 : ; 
; 5 0 5 IF_.TEMP_STATUS<0,16> NEQU RMSERR(RLK) 3 
3 8 91 4 THEN 3 
; 9 35 BEGIN 3 
; ? eer STATUS = RMSERR(DEL); ; 
3 H ¢ 0895 IF .IFABCIFBSV_WRTACC] : 
; §899 IRABCIRB$V_RU_DELETE] = 1; 3 
3 5 3298 4 END; : 
i BB x : 
: 3 8 601 4 : The Recovery Unit in which the current record was deleted has : 
: 2 9 0602 4 ! completed successfully and RMS was able to reclaim some space é 
; 540 06035 4 ! from the record. RMS changes the status to RMS$_DEL so that the ; 
> «541 0604 4 ' search will be continued. PF 
; etg 0605 4 ! 3 
3 34 0606 ELSE 3 
: ate se 4 STATUS = RMSERR(DEL); : 
; 546 0609 : If RMS has discovered that the Recovery Unit in which the target ; 
> 547 0610 ! primary data record was deleted has terminated successfully and that 3 
; 548 0611 ! the record is in fact deleted, then release the primary data bucket 3 
; 228 Belg containing the record. 3 
3 331 0614 4 IF .STATUS<0,16> EQLU RMSERR(DEL) $ 
3 22¢ 0615 3 THEN F 
3 3 0616 4 BEGIN 3 
; 554 0617 4 3 
g Joe 0618 4 GLOBAL REGISTER 3 
; 556 0619 4 R_BDB 3 3 
s- Sor 0620 4 3 
; 558 $66) 4 RELEASE (IRABCIRB$L_CURBDB)); 3 
3; 559 06 § 3 END; : 
; 560 062 § END; 3 
3s 361 0624 3 
3 206 0625 2 ! If RMS was successful at posteten tng to the target rears data record 3 
: 56 beso : only to find that it had been updated but not deleted within a Recovery ; 
; 564 0627 : Unit, and if the file has been opened for write access, then RMS will 3 
s 565 0628 ! try to re-format the record provided the Recovery Unit in which the record 3 
; 566 +494 ' was modified has completed. 3 
; 567 0630 { : 
: 568 0631 if STATUS | : 
; 569 $636 AND 3 
: 570 6 . IFABLIFBSV_WRTACC) : 
s or 0634 AN 3 
3 27¢ sth -REC_ADDRCIRC$V_RU_UPDATE]J | : 
3 are O33? NOT .REC_ADDRCIRC$V_RU_DELETE) : 
; 276 0639 RMSRU_RECLAIM(); : 
; 578 Boe ! If RMS was successful at positioning to the primary data record pointed 3 
: 79 rh ! at by the SIDR array element, and the record is NOT marked deleted, then. ; 
: 380 64 ! RMS must make sure that it is the right one - jie that the alternate key in 3 
; «581 644 ! this index matches the key of the SIDR which has been saved in 3 
3: 582 0645 2 ! keybuffer 2. : 


a ar ) 


10 | 
RM3SSIDR 1b-Se -1984 02:07:5 VAX-11 Bliss-32 v4.0-74 Page 12 
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; 583 064 ' ; 
> 584 64 IF STATUS | FH 
3 989 648 : 
; 58 649 BEGIN | ; 
; 58 beet 3 
; 588 651 OCAL ; 
; 589 b63¢ RECORD_OVHD, 3 
: 590 065 RECORD SIZE, 3 
3 23) Boe SAVE_UBR_ADDR : REF BBLOCK; | : 
; 338 8828 SAVE_UDR_ADDR = .REC_ADDR; : 
3 399 b686 ! Determine the size of the orerry data record's overhead, and the : 
; 596 0659 ! size of the primary data record itself. This is necessary to | : 
; 397 0660 1 determine whether or not the alternate key has been deleted through : 
; 598 0661 ! truncation of part of the record. 3 
s 399 0662 3 : : 
; 600 0665 4 BEGIN 3 
; 601 0664 4 ; 
H O06 0665 4 3 
; 60 0666 4 REC_SIZE, : 
3; 604 0667 4 SAVE_IDX_DFN : REF BBLOCK; | 3 
; 605 0668 4 5 
3; 606 0669 4 SAVE_IDX_DFN = .IDX_DFN; : 
; 607 0670 4 RMSKEY_DESC (0); 3 
; 608 0671 4 F 
3 rs 4 pers 2 RECORD_OVHD = RMSREC_OVHD(0; REC_SIZE); : 
; 611 0674 4 : If the target primary data record was updated within a Recovery ; 
; 612 0675 4 ! Unit then the true size of the primary data record maybe retrieved $ 
3 ot Bers : from the last two bytes in the reserved space of the record. : 
; 615 0678 4 IF .REC_ADDRCIRCS$V_RU_UPDATE] ; 
; 616 0679 4 3 
s 67 0680 5 RECORD_SIZE = .(.REC_ADDR + .RECORD_OVHD $ 
; 618 0681 5 + .REC_SIZE 3 
; 619 0682 4 - IRC$T_DATSZFLD)<0,16> 3 
; 620 0683 4 SE 3 
; 621 0684 4 RECORD_SIZE = .REC_SIZE; ; 
3 ose 0685 4 F 
; 62 0686 4 IDX_DFN = .SAVE_IDX_DFN; 3 
; 624 0687 END; : 
: 625 0688 $ 
; 6 0689 ! If this is a prologue 3 file then the record must be unpeches in : 
: 62? 0690 ! order to obtain the full size of the record and to be able to compare : 
: 628 0691 3 ! the SIDR key with the alternate key in the data record itself. RM 3 
; 629 0692 3 ! also sets REC_ADDR ce petnt to the unpacked record, so that the : 
; 630 0693 3 ! alternate key may easily be extracted from the record for key 3 
3 $3) Bede comparison. ; 
3 635 069 ! NOTE that because RMS always unpacks prologue 3 primary data records : 
3 634 069 ! when positioning by a secondary key for key comparison, it is never ; 
: tH peas necessary to unpack the record a second time during a $GET/SF IND. : 
3 g3$ 0700 IF .IFABCIFB$B_PLG_VER] GEQU PLGSC_VER_3 3 
; 638 701 THEN : 
; 639 0702 4 BEGIN ; 
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BUILTIN 
AP; 


GLOBAL REGISTER 
R_BKT_ADDR; 
REC_ADDR = .REC_ADDR + .RECORD_OVHD; 


AP = 0; 
RECORD_SIZE = RMSUNPACK_REC (.IRABCIRBSL_RECBUFJ, .RECORD_SIZE); 
3 F geteat = . IRABCIRBSL_RECBUF I; 


! If the primary data record is of sufficient size to contain the 

! alternate key (ie - the alternate key has not been deleted through 

! truncation of the record during the process of updating the record 

: “| some other process), then RAS determines whether or not the 
alternate key in the record still matches the SIDR it has positioned 

' to. If this is the case then RMS has found the next non-deleted 

! primary data record, and returns success. 


F (.RECORD_SIZE GEQU .1DX_DFNCIOX$W_MINRECSZ]) 
— RMSCOMPARE_REC (KEYBUF_ADDR(2), .IDX_DFNCIDX$B_KEYSZ2], -1)) 


GIN 
REC_ADDR = .SAVE_UDR_ADDR; 
rom RMSSUC(); 


If the yocongery key has been deleted totally from the record through 
truncation of the record during an S$UPDATE by another process, or 

if during the SUPDATE the secondary key changed, and the secondar 

ney in the primary data record no os matches the key of the SIDR 
RMS is positioned to, then this is not the next non-deleted primary 
data record. In this case, RMS releases the primary data bucket, and 
sets up to return an error status of record deleted, so that the 
search for the next non-deleted primary data record can continue. 


SE 
BEGIN 
GLOBAL REGISTER 

R_BDB : 

! If the target primary data record has been modified within a 
! Recovery Unit, and the stream has write access to the file so 
! that some attempt will be made to reclaim the space occupied by 
: SIDR array element, then set up so that when the SIDR array ’ 
! element prin to this primary data record is deleted, it is 
only marked RU_DELETE, and no space is reclaimed. 
iF .1FABCIFBS$V_WRTACC) 


(, SAVE_UDR_ADDRCIRC$V_RU_DELETE) 
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yoe-008 RMSFOLLOW_PTR 12-808-1 382 96:9ti2 DL EKSVMSMASTER SCAMS. SRCIRM3SSIDR.B32-4° (2) | 
; 697 760 2 OR | 
; 698 761 - SAVE_UDR_ADDRCIRC$V_RU_UPDATE]) 
: $30 re 4 THEN RABLIRBSV RU_DELETE) = 1 | 
; = 1; 
: 3 ree d RELEASE (IRABCIRBSL CURBDB)) | 
; L_CU ; 
; 08 766 4 STATUS = RMSERR(DEL); 
; 704 767 END; 
; 705 76 
; 706 07 END; 
; 707 0770 
; 70 771 ! If RMS was unable to position to the target primary data record, or if 
; 709 77 ! after positioning to the record it found that the record itself, or the 
s 710 077 ' secondary key it expected to find there had been deleted, then RMS 
s ii 0774 ! restores the address of the SIDR bucket's BDB to IRB$L_CURBDB, and the 
: ay; 0775 ! address of the SIDR array element it currently has positioned to 
3 a? p78 to REC_ADDR, and it returns the appropriate status. 
. . | 
We et. 0778 IRAB nt pease t = , ]JRABCIRBSL_NXTBDBI; 
: 716 0779 IRABLIRBSL-NXTBDB) = 0; 
eer 0780 REC_ADDR = .SAVE_SDR_ADDR; 
: 718 9781 
; 719 1414 § RETURN .STATUS; 
: 720 078 
3: 721 0784 1 END; ! { of routine } 
-TITLE RM3SSIDR 
-IDENT \Vv04-000\ 
-EXTRN RMSCOMPARE REC, RMSCSEARCH_TREE 
-EXTRN RMSEXT_ARRY_RF 
-EXTRN RMSFIND BY_RRV, RMSKEY_DESC 
-EXTRN RMSGETNRT_ARRA 


RT_AR 
-EXTRN RMSRECORD_KEY, RMSREC_OVHD 
-EXTRN RMSRLSBKT; RMSRU_RECLAIM 
“EXTRN RMSSIDR_END, RMSSIDR FIRST | 
TEXTRN RMSSQUISH_SIDR, RMSUNPACK_REC 


-PSECT RMSRMS3,NOWRT, GBL, PIC,2 
3C BB 00000 RMSFOLLOW PTR: 
POSHR 


#*M<R2,R3,R4,R5> ; 0419 
56 9002 PUSHL REC ADOR : 0538 
3c 20 a9 0 MOVL  #§ 32(TRAB), 60(IRAB) : 0539 | 
OA 6 AA 0009 BLBC 6 (IFAB), 1$ > 0545 
04 OOAO CA 1 000 C #1, 160C1FAB), 1$ : 0547 
40 Ad 1 001 MOVB #1. 64(IRAB) : 0549 
E 901 1$ CLRL = = (§P) > 0554 
19 PUSHL ID ; 
001C PUSHL VBN $ 
O01F BSBW = RMSFIND_BY_RRV ; 
0 ADDL2 #12, SP ; 
MOVL RO, STATUS ; 
0 BLBC STATUS : 0561 
0028 BBC #5, (REC_ADDR), 4$ 0563 | 
O02F JSB RMS$RU_RECLAIM : 0576 | 


10 
RM3SSIDOR hese =1984 :07:5 VAX-11 Bliss-32 V4.0-74 Pa 1 
yOe=000 RMSFOLLOW_PTR 12-8 08-1 3b 96: 0F 2 DL SKSVMEMASTER SLAMS SRCIRMSSSIDR.B3204 9° (2 
16 £8 BLBS § _TEMP_STATUS, 2 ; 
B2AA BF 30 8 3 CHP bgt #33450 + 0590 
53 8262 = BF 3 $5 F MOVZWL #33378, STATUS : 0593 
08 06 AA 5 0044 BLBC C1FABS 3$ : 0595 
ae g FF Ob bce gs82 22. 7CIRAB) : b256 
u Py 
53 8262 BF 3¢ 0046 38 MOVZWL #33378, STATUS + 0607 
8262 BF 3 Bi 00053 3$ CMPW STATUS. #33378 + 0614 
OF if 0058 BNEQ 4$ : 
54 20 AI DO OO05A MOVL 32 (1RAB) , BDB + 0621 
20 AD D4 O05 CLRL (IRAB) : 
7E bs 006 CLRL = = (SP) : 
00006 30 00063 BSBW RMSRLSBKT : 
SE 04 CO 00066 ADDL2 #4, SP : 
12 53 £9 00069 4$: BLBC STATUS, 5$ > 0631 
OE 06 AA €9 0006C BLBC 6('ABS, 5$ + 0633 
OA 66 06 £1 00070 BBC #6, (REC_ADDR), 5$ + 0635 
06 66 05 £0 00074 BBS W". (RECTADDR). 5$ + 0637 
000000006 EF 16 00078 JSB niatRu RECLAIM : 0639 
03 53 8 OOO7E 5$: BLBS STATUS, 6$ 3 0647 
0094 31 00081 BRW 13$ : 
52 56 DO 00084 6$: MOVL § REC_ADDR, SAVE_UDR_ADDR + 0656! 
55 57 DO 00087 MOVL IDX"DFN, SAVE_TDX_BFN : 0669 
7E ps 0008A CLRL <-(SP + 0670 
00006 30 0008C¢ BSBW = RMSKEY_DESC : 
SE 04 CO O008F ADDL2 #4, SP : 
51 D4 00092 CLRL 1 > 0672 
00006 30 00094 BSBW §RMSREC_OVHD : 
i) 66 06 £1 00097 #6, (RECA $ : 0678 
54 56 50 C1 0009B ADDL3. RECORD_OVHD, REC_ADDR, R4 > 0680 
FE A144 9F OOO9F PUSHAB =-2(REC SIZES ; 
54 9E 3C O00A3 MOVZWL a(SP)+> RECORD_SIZE ; 
03 11 O00A6 BRB 8$ : 
54 51 DO OOOA8 7S: MOVL  REC_SIZE, RECORD SIZE + 0684 
57 55 DO OOOAB 8$: MOVL § SAVE_IDXDFN, IDR_DFN > 0686 
03 0087 CA 91 OOOAE CMPB Ss B3(TFABY, #3 : 0700 
16 1F 000B BLSS : 
56 50 ¢cO 00085 ADDL2 RECORD_OVHD, REC_ADDR + 0710 
5c 04 00088 CLRL = AP : 0712 
51 54 DO OOOBA MOVL RECORD SIZE, R1 : 0713 
50 68 Ad 00 90080 MOVL  104(IRAB), RO ; 
00006 30 000C1 BSBW § RMSUNPACK REC : 
54 50 D6 990¢4 MOVL RO, RECORD_SIZE : 
56 68 A9 DO 000C7 MOVL 104(IRAB), “REC _ADDR : 0715 | 
54 22. «A? 10 00 ED 900¢B 9$: CMP2V #0, #16, 34(IDR_DFN), RECORD_SIZE > 0726 | 
21 1A 00001 BGTRU 108 ; | 
7E 1 CE 00003 MNEGL #1, -(SP) > 0728 | 
7E 20 AZ 9A 00006 MOVZBL 32(IDX_DFN), -(SP) : 
50 00B4 CA 3C OOODA MOVZWL 180(IFAB), RO : | 
60 B940 9F OO0DF PUSHAB @96(IRAB) (RO) : 
00006 00E3 BSBW = RMSCOMPARE_REC : 
5E C CO 000E6 ADDL2 #12, SP F | 
08 9 E OOE9 BLBS , 10$ F 
6 DO OOOEC MOVL § SAVE_UDR_ADDR, REC_ADDR : 0731 
50 o1 DO OOOEF MOVL #1, RO : 0732 
2 11 000F2 BRB «148 | 
| 
| 
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RMSPOS_BY_COUNT 


; 23 785 1 XZSBTTL ‘RMS$POS_BY_COUNT' 

; ¢ f $ ! ROUTINE RMSPOS_BY_COUNT (SKIP_NUMBER) : RLSPOS_BY_COUNT = 

3 2 788 1 | | 
3 4 ; f : ! + FUNCTIONAL DESCRIPTION: 

: 729 791 1: This routine's fesgone tet) <ty is to position to a particular SIDR 

3 4 , 36 : array element. It does this by skipping SKIP_NUMBER array elements. 

. ? é 794 1 ' CALLING SEQUENCE: | 
cz fve 7 } 

; f : a ! BSBW RMSPOS_BY_COUNT() 

: 736 798 1 | INPUT PARAMETERS: | 
: 737 799 1! , 

; 738 0800 1! SKIP_NUMBER = number of array elements to skip 

; 739 0801 1! 
; oe B88 ! : IMPLICIT INPUTS: 
: 74 0804 1 | REC_ADDR - address of SIDR 

: 74 0805 1! 
3; 7446 0806 1 ! OUTPUT PARAMETERS: | 
3; 7645 0807 1! NONE 

: 746 0808 1! 

; 747 sth4 1 ! IMPLICIT OUTPUTS: 
; 748 810 1! 

: 749 0811 1! REC_ADDR - address of desired array element 

; 750 pele 1! 
3 ey petz : : ROUTINE VALUE: | 
: Fag 0815 1! suc - positioned to desired array element. 
: 754 0816 1! BUG - the number of array elements preceeding the desired 
3 P33 pelt : element exceeds the number of elements in the entire array. | 
; 137 0819 | SIDE EFFECTS: | 
; 759 0821 1! on success, REC_ADDR points to the desired array element. 
en ee | 
os Bream 
; 764 0826 EXTERNAL REGISTER, 

; 766 088 R_IDX_DFN STR, 

; 6? 809 R-REC"ADDR_STR; 

: 769 O83 LOCAL 

; aa 8 ; END_OF _SIDR; 

; A B34 Find the end of the current SIDR. 

; on i END_OF_SIDR = RMSSIDR_END(); 

F ve B38 Position to the SIDR's first array element 

: 778 Bc0 REC_ADDR = RMSSIDR_FIRST(O); 

3; 779 0841 
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RMSPOS_BY_COUNT $7007 138% 96:87 524 DI EKSVMEMASTER SCAMS SRC SRMSSSIDR.B3204 2" (3) 
4 ! Skip the desired number of array elements, or until the end of the SIDR 
ri } is encountered - which ever comes first. 
45 DECRU LOOP_INDEX FROM .SKIP_NUMBER TO 1 BY 1 
4 
rr ! If the end of the SIDR is encountered before the desired array 
4 ! element is encountered then this represents an invalid internal 
Sey | condition, and report it as such. 
085¢ if .REC_ADDR GEQA .END_OF_SIDR | 
Bae THEN 
Baee RETURN RMSERR(BUG) 
bees Position past the current array element to the next array element. 
0858 ELSE 
0839 RMSGETNXT_ARRAY(); | 
Bae, Having positioned to the desired SIDR arrary element, return success. 
nek RETURN RMSSUC(); 
0864 1 END; ' { of routine } 
1C BB 00000 RMSPOS_BY_ COUNT: 
POSHR #*M<R2,R3,R4> 3 0786 
53 51 pO 0000 MOVL R1, R 3 
00006 30 0000 BSBW  RM$SIDR_END : 0836 
54 50 DO 00008 MOVL RO, END_OF_SIDR ‘ 
7E Re 00008 CLRL - ; 0840 
00006 30 Bp0 BSBW RMSSIDR_FIRST 3 
Be CO 0001 ADDL2 me 3 
28 9 dO B00} MOVL RO, REC_ADOR 3 
53 D0 00016 MOVL KIP_NUMBER, LOOP_INDEX : 0852 
11 11 00019 BRB $ 3 
54 36 D1 00018 1$: CMPL REC_ADDR, END_OF_SIDR F 
g 1F 0001 BLSSU § 
50 8434 F 3C¢ $5 MOVZWL #33844, RO 3; 0854 
00006 $0 90097 28 BSBW -RASGETNXT_ARRAY : 0859 
99 3 00 eats DECL § _LOOP_INDER > 0852 
D is 002C 3$: BNEQ 3 
50 1 p00 0002E MOVL #i, ~, ; 0863 
1c a 4 1 4$: POPR #*°M<R2,R3,R4> 3; 0864 
5 00033 RSB 3 


; Routine Size: 52 bytes, Routine Base: RMSRMS3 + 012C 
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v04- RMSSEARCH_SIDR 12-8081 382 9g:0T 2 DLKSVMGMASTER SCAMS. SRCIRMSSSIDR.B32-4° (4) 
; 804 5 1 ZSBTTL "RMSSEARCH SIDR’ 
; 805 96 : GLOBAL ROUTINE RMSSEARCH_SIDR : RLSRABREG_67 = | 
3 07 re 1 !e¢ 
; 808 : 3 
; % y : FUNCTIONAL DESCRIPTION: | 
; 11 72 i! The purpose of this routine is to search for a non-deleted primary 

3 a8 75 1! data record by means of an alternate key of reference. This routine 

; #81 74 #1! starts its egercs with an array element in the current SIDR array. If | 
; 814 75 1! RMS is position ng sequentially, then the orray element RMS starts 

; $1? 8 76615! its search with will always be one more that the value in | 
: 816 (at IRB$W_SAVE_POS. Thus, RMS may start its search with any of the elements 

; 817 878 1! in the current SIDR arcey eroene a upon the value in this variable. 

; 818 879 1! However, if RMS is positioning randomly by key value, then RMS will 

; 819 880 1! always start its search for a non-deleted primary data record with the 

3 as a! ! very first element in the current SIDR. 

3 B32 0885 1! When the current SIDR array is exhausted, RMS will attempt to continue 

: 8 0884 1! its search within the very next SIDR arrey that follows. RMS may 

; 824 0885 1! continue its search provides the key of this next SIDR matches the 
; 825 0886 1! characteristics of the search. These search characteristics include the 

; 826 0887 1! search sey itself (in keybuffer 2), the size of the search key (in 

; 827 0888 1! IRB$B_KEYSZ) which mey not be the same as the size of the alternate key 

; 828 0889 1! itsel¥, and whether the search is for an equal match, a greater-than 

: S63 0890 1! or equal match (IRBSV_SRCHGE is set), or a greater-than match 

; 850 0891 1! CIRBSV_SRCHGT is set). If RMS is positioning typooey then any possible 

; #831 0892 1! combination of these search characteristics is possible, but when RMS is 

3 S36 0895 1! pestejentne poquent tatty: RMS will only search those SIDRs whose key 

3 Ht Bae : exactly matches the full size search key in keybuffer 2. 

: 835 0896 1! If during its search for a non-deleted primary data record RMS | 

; 836 0897 1! encounters a non-deleted SIDR array element ie to a deleted 

3 Ht 0898 1! primary data record, then RMS will mark the SIDR array element deleted 
; 838 0899 1! and reclaim as much space from the SIDR as it can according to the 

; 839 0900 1! normal rules of SIDR deletion. However, such activity will only take 

3 art 344 : } place if the stream has write access to the file. 

3 oh 0905 1! This routine concludes its search when either an error occurs, it is 

; 84 0904 1! successful at poast Sontag to a non-deleted primary data record, or it 

3; 844 0905 1! exhausts all SIDRs matching the search characteristics without 

3 ae? bane ! positioning to such a primary data record. 

3: 847 208 1 ! CALLING SEQUENCE: 

3 8 909 1! 

3: 849 910 1! BSBW RMSSEARCH_SIDR() 
: $20 0911 1! 

; «851 aig 1 ! INPUT PARAMETERS: 
3 26 9135 1! NONE 

3; 8 914 1! 

3; 6854 915 1 ! IMPLICIT INPUTS: 

; 855 4 1! an 

3 28 mir 7 3 IDX_DFN - address of index descriptor describing key 

: 5 4 1! IDX$V_KEY_COMPR - if set, SIDR key compression is enabled 

: 858 919 1} IDX$SB~KEYSZ - size of key 

; 859 a5 1! 

; 860 ie IFAB - address of IFAB 


; 
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! IFBSL_SFSB_PTR - pointer to fi e shared file sync. block 
IFBSW_KBUF SZ - size of a keyt fter 
IFBSV_WRTACC - if set, file is write accessed 


address of | 
address 4 | ton Suchet s BDB 
pointer to the ge ous keybuffers 
size of search k 
address of last sere front compressed key 
if set, permanence should be set in SIDR BDB 
number of olonents eeceree starting point 
if set, search for 
f set, search for GT match 


AB 
IRB$L_CURBDB 
IRBSL_KEYBUF 
IRBSB_KEYSZ 
IRBSL— -tSt _NCMP 
IRBSV_PRM- 
IRBS$W_SAVE_POS 
IRBS$V_SRCHGE 
IRB$V~SRCHGT 
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een released and possibly marked dirty/permanent. 
SIDR array elements and in fact whole SIDRs might have been deleted 
the stream positioning has write access to the file. 
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: 1 $ 
; 1! 3 
: 1! 3 
: 7! F 
; 1! F 
3 1! : 
3 1! : 
3 24 : 
: 1! P 
; 1! : 
3 1! : 
: 1! ; 
: 1! Ps 
3 1! 3 
; 4 ; } REC_ADDR - address of SIDR within bucket é 
3 87 1 ! OUTPUT PARAMETERS: : 
3; 8 1! NONE F 
3 S7 0940 1! 3 
; 880 B2e4 ' IMPLICIT OUTPUTS: 3 
3 ¢ 0945 1! IRAB - address of IRAB 3 
3 0944 1! IRB$L_CURBDB - eddress of primary data bucket's BDB ; 
; 0945 1! IRB$W_FIRST_ID - 3 
: 0946 1! IRBSL_FIRST_VBN - RFA VBN of new current SIDR's first element F 
3 0947 1! IRBSL_LST_NCMP - address of last zero front compressed key 3 
3 0948 1! IRBSL_RFA_VBN - VBN of new current SIDR's bucket F 
3 434 : IRB$W_SAVE_POS - number of elements before new current element 3 
; bees ! } REC_ADDR - address of primary data record $ 
3 0983 1 ! ROUTINE VALUE: F 
3 0954 1! 3 
3 0955 1! BUG - invalid internal condition F 
; 0956 1! suc - next non-deleted primary data record found $ 
3 0957 1! RNF - alt SIDRs of this key value exhausted 3 
3; 897 0958 1! various I/0 errors 3 
; 898 0959 1! 3 
; 899 0960 1 ! SIDE EFFECTS: 3 
; 900 0961 1! 3 
; 901 0962 1! AP is trashed. 3 
; 902 0965 1! Keybutter 5 will contain the search key, if this routine was called ; 
: 903 0964 1! with a generic s search ey (search key size less than key size), 3 
: 904 965 1! or to find the first SIDR with a key greater-than or 3 
; 905 ve 1! greater-than-or-equal to the search key in keybuffer 2. 3 
3 206 0967 1! On success, *TRBSL CURBDB ne Hh AR the primary data bucket's BDB 3 
; 90 0968 1! address, the SIDR bucket will have been folessed. REC_ADDR : 
; 908 969 1! points to the primary data bucket, and the IRAB contains 3 
; 909 970 1! sufficient watorpet iva necessary to uniauely seen TY and 3 
3 971 1! re-position to the SIDR array element pointing : 
3 972 1! non-deleted primary data record. In addition, A ial 2 will F 
: 975 1! contain the key of the SIDR. 3 
3 974 ' On all errors except for a RNF found error, the SIDR bucket will have 3 
: 1! ; 
: 1 : 
: 1} : 


} 
| 
| 
A ID of new current SIDR‘ s first element 
! 
| 


SIDR array. 


oS 


2. This is the first peste toning attempt after a SREWIND or SCONNECT and 
as it is sequential there is no current SIDR. In this case RMS has 
positioned to the very first SIOR it could find, and begins its search 

or the next non-deleted primary data record with the very first 
element in the SIDR array. 
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v04- RMSSEARCH_SIDR 12-808 -1 3b 96 :0F 29 DLSKSVMMASTERSLRMS. SRCTRMSSSIDR.B32-4° (4) 

; 918 979 1 !=- H 
; 919 980 1 : 
; 920 981 BEGIN $ 
; 921 9 § $ 
3; 9 ¢ 9 BUILTIN 3 
3; F 984 3 
> 924 985 TESTBITSC; ; 
; 925 9 § : 
3; F § 9 EXTERNAL REGISTER 3 
; F 988 COMMON_RAB_STR, : 
: 928 989 R_IDX_BFN_STR 5 
; 9 ; 990 R-REC_ADDR_STR; ; 
3; ¥ 991 : 
3 38) 99 LABEL F 
; 9 ¢ 099 NEXT; : 
3; 9 994 : 
; 934 995 LOCAL $ 
; 935 0996 BEG_OF_SIDR, : 
; 936 0997 END _OF_SIDR, 3 
; 937 0998 FLAGS : BLOCK C1], : 
; 938 0999 STATUS; : 
; 939 1000 : 
; 940 1001 MACRO F 
: 941 100 FIRST_TIME = 0,0,1,0 &%, ; 
; 94 100 NEW_KEY = 0,1,1,0 %; : 
; 94 1004 F 
3 ose 1392 FLAGSCFIRST_TIME] = 1; : 
; 946 Roe ! Save the address of the SIDR, and the address of the first byte past the : 
; ot i ' 2 : last SIDR array element (ie the end of the SIDR). ; 
; 949 1010 BEG_OF_SIDR = .REC_ADDR; : 
; 320 Hae END_OF_SIDR = RMSSIDR_END(); : 
5 328 1918 ! RMS must perform an initial positioning before it begins its search for : 
; 95 1014 ! the next non-deleted primary data record. This positioning depends upon 3 
; 954 1015 ! whether RMS is positioning randomly by =r value, or is positioning : 
; 955 116 ! sequentially. In the latter case, where RMS initially positions to will : 
; 956 101 ! depend upon whether RMS had been able to position to the current SIDR F 
; 957 1018 ! before calling this routine. Thus, this routine is faced with four : 
; 958 1019 ! different ways in which it could perform this initial positioning 3 
; 959 1020 ! depending upon the mode of access, and if the access mode is sequenttal., : 
: 960 1021 ! whether or not RMS had positioned to the current SIDR before this 3 
3 +g 1958 routine was called. : 
3 368 1024 ! 1. If RMS is positioning rensemsy by key value then RMS has positioned to : 
3: 964 10 ! the first SIDR whose key matches the search key according to the | 3 
3; 965 \8 : search characteristics, and RMS wants to begin its search for a 3 
3 308 1} } non-deleted primary data record with the very first element in the : 
; 10 i : 
° 10 : | : 
3 10 } | 3 
: 10 : : 
: 10 } : 
3 10 ! 3 

| 
| 
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v04- RMSSEARCH_SIDR -Sep-1 

: 975 1 § ! 3. RMS has successfully positioned to the current SIDR. In this case RMS . 
e Ser 1 : begins its search for the next non-deleted primary data record with ; 
; 97 1038 : the first element that follows the current SIDR element. Note that ; 
; 97 1039 ' there ay | not be a following element in which case RMS exhausts the ; 
; pT re current SIDR very quickly. : 
; 981 ok : 4, RMS was unable to position to the current SIDR before calling this 3 
; 98 104 ! routine. This could only be because the entire current SIDR was : 
; 98 1044 : deleted. In this case RAS has positioned to the first SIDR with a 3 
: 986 1045 ' key value greater tan or equal to the key of the current SIDR, and 5 
; 985 ies ' it begins its search for the next non-deleted primary data record with 3 
3 a8 Hh } the first array element in this SIDR. : 
: +3 +r RMSPOS_BY_COUNT (.IRABCIRBS$W_SAVE_POS)); ; 
; 990 1051 ! If RMS is positioning randomly by key value and either the size of the 5 
; 991 1036 ! search key is less than the true key size or the search is for the first ; 
; 99 105 ! record with an alternate key either greater-than-or-equal or greater-than ; 
; 99 1054 ! that of the search key, then save the search key presently located in : 
; 994 1055 ! keybuffer 2 in yeyeur er 5. It is wesensery to save the search key because 3 
3; 995 1056 ! if the SIDR positioned to is exhausted without a a non-deleted ; 
: 9% 1057 ! prtaety data record, it will be necessary to continue the search with the ; 
; 997 1058 ! next SIDR matching the search characteristics, and the search key will be : 
; 998 1059 !' required in order to continue this search. In addition, it will be : 
; 999 1060 ! necessary each time RMS positions to a new SIDR to extract its key into : 
: 1000 1061 ! keybuffer 2, since the key of the SIDR RMS has currently positioned to $ 
3; 1001 1388 ! might not be the same as the keys of SIDRs RMS has previously positioned : 
3 1008 er : to during the course of its search for a non-deleted primary data record. : 
3: 1004 1065 IF .IRABCIRBSV_SRCHGE) : 
: 1005 1066 F 
; 1006 1067 - IRABCIRBS$V_SRCHGTI : 
: 1007 1068 : 
: 1008 1069 . IRABCIRB$B_KEYSZ] LSSU .IDX_DFNCIDX$B_KEYSZ] 3 
; 1009 1070 N F 
3; 1010 1071 BEGIN F 
; 1011 1976 3 FLAGSCNEW_KEY] = 1; 3 
3 a 107 CHSMOVE (TIRABLIRB$B_KEYSZ], KEYBUF __ADDR(2), KEYBUF_ADDR(5)); $ 
Be 1 es : 
; 1015 1076 ! Regardless of how many SIDRs RMS will position to in its quest for a ; 
3; 1016 1077 ' non-deleted ling 4 data record, their key value will always be the 3 
3; 1017 1078 ' same as the key in herpyt ter 2 fonce keybuffer 2 has a key if it doesn't F 
3; 1018 1079 ! already), and there will not be a need to extract the key out of each 3 
: 1019 1080 i SIDR positioned to. ; 
: 1020 1081 ! 3 
: 1021 1086 ELSE : 
; 1966 198? FLAGSCNEW_KEY] = 0; : 
; 105% 1085 : Continue until either the next non-deleleted primary data record is 3 
: + 5 10a6 } encountered, the end-of-file is reached, or some error is encountered. : 
3 1057 1088 NEXT : : 
; 1028 1089 BEGIN 3 
3; 1029 1090 : 
: 10350 1091 WHILE 1 3 
3; 1031 1092 0 3 
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maim) : 
: 1 1095 4 ! If RMS is errant positioned to the very first element of a ; 
; 1035 1 a9 4 ' SIDR areas and either this is first such array a scanned ; 
3; 10 193 4 ! during this current ap mig or the search characteristics : 
3; 10 1098 4 ! indicate that the key of each SIDR positioned to must be ; 
: 13 : 1928 2 } extracted, then extract the key of the SIDR into keybuffer 2. : 
3; 1040 1101 IF (TESTBITSC(FLAGSCFIRST_TIME)) 3 
; 1041 1106 : 
; ong 110 -FLAGSCNEW_KEY]) $ 
3: 104 1198 4 3 
: 1044 1105 5 (. [RABCIRB$SW_SAVE_POS] EQLU 0) ; 
3 1045 1196 5 3 
: 1046 1107 4 THEN ; 
3 1047 1108 ; BEGIN 3 
3; 1048 1109 $ 
3 1049 1110 é LOCAL 3 
; 1050 1111 TMP_REC_ADDR; 3 
3; 1051 1116 5 3 
; 1936 1113 5 TMP_REC_ADDR = .REC_ADDR; 3 
; 105 1114 5 REC_ADDR = .BEG_OF_SIDR; F 
3 1054 1115 5 3 
; 1055 1116 5 REC_ADDR = .REC_ADDR + RMSREC_OVHD(-1); : 
3; 1056 1117 5 ; 
3 1057 1118 5 IF _ .IDX_DFNCIDX$V_KEY_COMPR] 3 
: 1058 1119 5 THEN 3 
3 1059 1120 6 BEGIN 3 
3; 1060 1121 6 
3: 1061 1156 6 GLOBAL REGISTER 
; 1008 1123 6 R_BDB; 
3 106 1124 6 
3 1064 1125 6 AP = 1; 
3; 1065 1126 6 RMSRECORD_KEY (KEYBUF _ADDR(2)); 
3; 1066 1127 6 
3: 1067 1128 5 LSE 
3 Hh 43 \1$) : CHSMOVE (.IDX_DFNCIDXSB_KEYSZ], .REC_ADDR, KEYBUF_ADDR(2)); 
3; 1070 1131 5 REC_ADDR = .TMP_REC_ADDR; 
3; 1071 1136 4 END; 
3 1076 1133 4 
3; 107 1134 4 ! Continue searching for the next non-deleted atpes'y data record 
3: 1074 1135 4 ! until either it is found, an error occurs, the end of the SIDR 
: 1075 1138 4 i is encountered, or no SIOR with a ney matching the search key 
3; 1076 11 4 ! according to the search characteristics remains to be scanned for an 
3 244 1138 ? } array element pointing to a non-deleted primary data record. 
3 1079 1140 4 WHILE .REC_ADDR LSSA .END_OF_SIDR 
3; 1080 1141 4 DO 
: 1081 1166 5 BEGIN 
3 O56 114 : 
: 108 1144 ' Starting with the current SIDR array element, search for the 
3: 1084 1145 ' first element in the SIDR orrey that is not marked deleted 
; Hs 1348 5 until either one is found or the end of the SIDR is encountered. | 
: 10 1148 ; WHILE ((.REC_ADDR LSSA .END_OF_SIDR) 
; 1088 1149 6 AND 

| 
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; 1090 dO 

} 91 BEGIN 

1998 RMSGETNXT_ARRAY(); 

1094 IRAB IRB$Q_SAVE_POS) = . ITRABCIRBSW_SAVE_POS] + 1; 

1932 END; 

09 If RMS has not runoff the end of the current SIDR array it is 

098 searching, but has successfully positioned to an element in the 

099 SIDR array that is not marked deleted, then attempt to access the 


primary data record that it points to, and determine whether or 
not it is marked deleted. 


ed tw es me te 


| 
! g »REC_ADDRCIRC$V_DELETED]) : 
; 1 “ ; 
; 1 6 F 
; 1154 6 : 
H ! 2? : 
; 1 37 : 
3; 1 1158 $ 
3 1 1159 : 3 
3 1 1160 H 
; 1100 1161 2 : 
: 1103 1163 
: 1108 1164 : F_.REC_ADDR LSSA .END_OF_SIDR ; 
3; 1104 1165 5 HEN 3 
3; 1105 1166 6 BEGIN : 
; 1109 1167 6 : 
3; 110 1 68 6 LOCAL : 
; 1108 1169 6 RFA_ID, : 
3 HR 8 nae : 
51111 1176 6 : Attempt to access the primary data record while holding on to : 
; 11g 1173 6 ! the SIDR bucket lock; waiting for the lock on the primary data ; 
36111 1174 6 ! bucket to be released if someone else has it while holding F 
3 te 1122 ? } onto the SIDR bucket lock if necessary. : 
: 1116 177 § RMSEXT_ARRY_RFA (RFA_VBN, RFA_ID); ; 
: 1118 1179 6 STATUS = RMSFOLLOW_PTR (.RFA_VBN, .RFA_ID); ; 
: 1120 1181 6 ! If RMS has successfully found the next non-deleted primary : 
3; 1121 1182 6 ! data record, or some serious error has been encountered, $ 
3 1158 1183 6 ! then terminate the search for the next non-deleted primary 3 
; 112 1184 6 : data record. If the error encountered was just that the — : 
3 1124 1185 6 ! primary data record accessed had been deleted, then RMS will 3 
3 1125 1186 6 ! be able to continue the search for the next non-deleted : 
3: 1126 1187 6 ! primary data record with the next element in the SIDR array 3 
3 1150 1138 ? currently being searched which is not marked deleted. : 
: 1199 1190 7 If ,STATUS<0, 16> NEQU RMSERR(DEL) ; 
: 1131 1198 § LEAVE NEXT; | : 
: 1138 1194 6 ! If the primary data record positioned to is deleted, but the : 
3 1134 1195 6 ' SIDR array element is not marked as such, then alleviate this 3 
3 1135 1196 6 ! discrepency provided the user has accessed the file for 3 
3 1136 1197 6 : ohh x f before continuing on with the search for the next 3 
3 tT 1198 6 ! non-deleted primary data record. If the current SIDR array : 
: 1138 1199 6 : element is marked RU_DELETE, and RMS is to RU_DELETE it, then : 
: BE 1390 ° } in this case there iS no need to do anything. | : 
: 1141 1202 6 if .IFABCIFBSV_WRTACC) | : 
: 1148 1soe , NOT (.REC_ADDRCIRC$V_RU_DELETE] | ; 
> 1145 1206 7 . IRABCIRBSV_RU_DELETEJ) | : 

| 

| 

| 
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3: 114 1207 THEN H 
; 1109 1208 : BEGIN : 
3: 1148 1209 7 i 
3 1149 1210 7 GLOBAL REGISTER : 
; 1150 1211 7 COMMON_IO_STR; $ 
: 1151 1 \¢ 7 3 
3; ¢ 1213 7 LOCAL ; 
; 115 1214 7 SAVE _REC_ADDR; : 
> 1154 161? 7 $ 
3 1382 : 18 4 } Retrieve the address of the SIDR bucket and mark it dirty. : 
: 1157 1218 7 BDB = .JRABCIRBS$L_CURBDB); : 
; 1158 1219 7 BDBCBDB$V_DRT) = T; : 
: 1139 1¢20 ¢ BKT_ADDR = .BDBCBDBSL_ADDR]; | : 
3: 1161 1292 7 ! Save the address of the current SIDR array element before ; 
; 1106 1225 7 ' attempting to delete any space. ; 
3; 116 1224 7 ! $ 
> 1164 1225 7 SAVE_REC_ADDR = .REC_ADDR; : 
: 11e2 \ss8 4 REC_ADDREIRC$V_RU_DECETE] = 0; : 
3: 1167 1228 7 ! If RMS is able to only delete the space occupied by the é 
3; 1168 1229 7 ' current SIDR array element's RRV pointer, then RMS may $ 
3; 1169 1230 7 ' continue its search for a non-deleted primary data record 3 
: 1170 1231 7 ! within the current SIDR array after re-determining the $ 
: 112) 1$36 4 address of the end of the current SIDR array. : 
3 1178 1234 7 IF RMSSQUISH_SIDR (1, .BEG_OF_SIDR) F 
3 1174 1235 7 F 
3 1175 1236 7 IF .REC_ADDR EQLU .SAVE_REC_ADDR $ 
3; 1176 1237 7 THEN 3 
3 1177 1238 8 BEGIN 3 
: 1178 1239 8 REC_ADDR = .BEG_OF_SIDR; ; 
> 1179 1240 8 END-OF SIDR = RM$SIDR-END(); ; 
; 1180 1241 8 REC_ADBR = .SAVE_REC_ADDR; 3 
3 1181 ists 8 END ; 
3: 1182 \s¢ 8 : 3 
; 1183 1244 8 ! If RMS is able to delete the entire current SIDR : 
: 1184 1245 8 ! because all the elements contained within it have : 
; 1185 1246 8 : been deleted, then leave the loop responsible for $ 
3: 1186 1247 8 ' searching the current SIDR so that conditions might F 
3; 1187 12468 8 ! be set “ to attempt to search the next SIDR array : 
: 1188 1249 8 ! in the alternate index. : 
3; 1189 1520 ° ! - 
3; 1190 1251 ELSE 3 
3 1191 1536 7 EXITLOOP : 
; 136 12535 7 : 
3 119 1254 7 ! If RMS is able to only mark the current SIDR array as 3 
3 1194 1255 7 ! deleted without recovering any space then make sure the : 
3 1195 1256 7 ! state bit IRBSV_RU DELETE is clear (if it was set) and : 
3 11 1257 7 ' continue the search for a non-deleted primary data record : 
3 119 1258 7 ! with the next SIDR array element. 3 
3: 1198 1259 7 ‘ 3 
3 1199 1260 7 ELSE : 
: 1500 1261 BEGIN 3 
3; 1201 1 6 IRABCIRBSV_RU_DELETE] = 0; | 3 
3; 1202 126 RMSGETNXT_ARRAY(); ; 
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64 8 IRABLIRBSU_SAVE_POS] = ,IRABCIRB$W_SAVE_POS] + 1; 
END 


If the file has not been opened for write access or there are 
really no changes that need to be made then the SIDR element 
can not be marked de'eted, and RMS must immediately position 
to the next SIDR array element. This is because having 
unexpectantly encountered a deleted primary data record RMS 
will want to continue its search for the next non-deleted 

SIDR element. Since RMS always starts such a search with the 
current element, and since RMS was unable to mark the current 
SIDR array element deleted, RMS would end up positioning to 
the current element as if it was the next element. 
Immediately positioning to the next element prevents this. 


(Us mv acareresmseasvasec anes 


) 
RBSQ_SAVE_POS] = .IRABLIRB$W_SAVE_POS) + 1; 
RB$V_RU_DELETE) = 0; 


PMPNMNIN 3 3 2 SS SS OOO OCOO 


PWN OC OONAU EWN O OONOUSWN ODO ONAOUES WN "OO ONOUEW 


BEGIN 

RMSGETNXT _ARRAY(); 
IRABLI 

IRABCI 

END 


END; 


Having exhausted this current SIDR array in the search for the next 
non-deleted primary data record, RMS positions to the next SIDR 

in order to continue the search. NOTE that if the search 
characteristics require the original search key, it is restored to 
keybuffer 2 from keybuffer 5 before initiating the search. This 
will always be the case when the key of the next SIDR RMS positions 
to maybe different from the key of the current SIDR. 


FLAGSCNEW_KEY) 
CHSMOVE (.IRABCIRB$B_KEYSZJ, KEYBUF_ADDR(5), KEYBUF_ADDR(2)); 


IRABCIRBSV_NORLS_RNF] = 1; 
RETURN_ON_ERROR TRMSCSEARCH_TREE(), IRABLIRBSV_PRM] = 0); 


! Reset all the fields necessary to search a SIDR array starting 
from its first element. 


BEG_OF SIDR 


= .REC_ADDR; 
END-OF~SIDR = RMSSTDR_END(); 


REC_ADDR = RMSSIDR_FIRST(O); 
IRABCIRBSU_SAVE POS] = 0; 


Ont eo mo mcm msm mcace 


F . 
HEN 


BERR PANN wpopnornr 


END; ' {of NEXT) 


! If some serious error was encountered in RMS's search for the next 
! non-deleted primary data record such that the search could no longer 
' be continued, then RMS releases any bucket locks the process has 
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RP 
( vc 


o 
uw 


IRABCIRBSL_NXTBDB] = 0; 
IRABCIRBSL_RFA_VBN] = .BOBCBDBSL_VBN); 


SsSz 


Qui lkwn—O0ean 


RMSSIDR_FIRST (7; TRABC {ROSL_F1RST_VBN], IRABCIRBSW_FIRST_ID}); 


WWAWAI AAA AAA 


ee a 


IF_.IRABCIRB$V_PRM) 
THEN 


; } <4 ! 1 ; Outstanding (primary or SIDR but not both), and returns the error. : 
3; 126 1 : ! There is one error case which is handled differently. A record not found ; 
: 126 1324 ! error on a search for a primary data record is a serious error. To signal : 
> 1264 1325 : to a caller of this routine that in this particular case this routine ‘ 
; 1265 1326 : should never be recalled, RMS returns an invalid internal condition or : 
3 } o8 ! 4 bug error after storing the RNF status in the RAB's RABSL_STV field. : 
: 1268 1329 IF NOT .STATUS : 
3; 1269 1330 THEN 3 
: 1270 1331 BEGIN ; 
3; 1271 1 ¢ 3 
3 3 ue 1 GLOBAL REGISTER : 
: 127 1330 COMMON_IO_STR; 3 
3 1274 1335 | ; 
: 1275 1336 IF .IRABCIRB$L_CURBDB] NEQU 0 : 
; 1576 Ieee THEN $ 
: 1277 1338 ; RELEASE (IRABCIRB$L_CURBDB)); ; 
: 1278 1339 : 
: 1279 1340 4 IF .STATUS<0,16> EQLU RMSERR(RNF) | ; 
3 1580 1341 3 THEN $ 
: 1281 1366 4 BEGIN | : 
; ish¢ 1343 4 RABCRABSL_STV) = .STATUS; $ 
: 128 1344 4 STATUS = RMSERR(BUG); | 3 
> 1286 1345 ; END; : 
: 1385 1346 | : 
; 1286 1347 3 IRABCIRB$V_PRM) = 0; | . 
; 1287 1348 3 RETURN .STATUS; ; 
; 1288 1349 3 END : 
: 1289 1350 3 ; 3 
: 1290 1351 3 : If RMS has been successful in positioning to the next non-deleted ; 
: 1291 1326 3 : primary data record, then save all information necessary to position | | $ 
3 1638 135 ; ! to this SIDR array element as if it was the current element (because it 3 
; 129 1354 : soon will be), release the SIDR bucket, and return success. ; 
3 1294 1355 3 ! 3 
: 1295 1356 § ELSE | : 
: 1296 1357 BEGIN : 
: 1297 1358 F 
; 1298 1359 GLOBAL REGISTER | 3 
3 9-44 1360 COMMON_IO_STR; : 
:; 1300 1361 3 
3; 1301 1306 LOCAL 3 
: 1308 136 SAVE _REC_ADDR; 5 
: 1307 1308 3 
3 3 1365 BDB = .JRABCIRBS$L_NXTBDB); ; 
3 1 1366 : 
3 1 1367 3 
3 1 1368 3 
: 1 1369 3 
3 1 1370 SAVE_REC_ADDR = .REC_ADDR; $ 
3 1 1371 ; 
: 1 1376 - 
3 1 137 3 
. | 1374 3 
: 1 1375 ; 
2 1 1376 3 
3 1 1377 : 
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: 1317 137 BDBLBDBS$V_PRM) = 1; : 
: 1318 1338 = : 
: 1319 1380 RMSRLSBKT (0); ; 
; 9 81 IRABLIRBSV_PRM) = 0; ; 
: 1 3 1 BS RETURN RMSSUC(); : 
21 1384 END; ; 
: 1324 1385 ; 
: 1325 1386 1 END; ! {of the routine RMS$SEARCH_SIDR) | ; 
| : 
3C BB 00000 RMSSEARCH SIDR:: | : 
POSHR #*M<R2,R3,R4,R5> : 0866) 3 
SE 1¢ 2 90002 SUBL #28, SP : : 
08 AE 01 88 0000 BISB2 #1, FLAGS : 1005) ; 
04 AE 56 20 00009 MOVL §REC_ADDR, BEG_OF_SIDR + 1010) : 
00006 30 0000D BSBW  RMSSIDR_END + 1011 ; 
6E 50 b0 00010 MOV RO, END-OF_SIDR : : 
51 76 ag C 00013 MOVZWL 118(IRAB),~R1 > 1049 | ; 
B3 10 00017 BSB RMSPOS_BY. COUNT : : 
0D 42. Ad 04 £0 00019 BBS #4, 66TIRAB), 1$ > 1065 ; 
08 42 AG 01 £0 D001 BBS #1. 66(IRAB). 1$ + 1067 ; 
20 A? 00A6 69 91 0002 CMPB =: 166(IRAB), 32(IDX_DFN) + 1069 F 
1A 1E€ 00029 BGEQU 2$ : : 
08 AE 08 88 00028 1$: BISB2 #2, FLAGS + 1072 ; 
51 00A6 C9 OA 000¢F MOVZBL 166(IRAB), R1 + 1073 ; 
50 00B4 CA 3C 00034 MOVZWL 180(IFAB). RO : ; 
60 B940 dF 00039 PUSHAL @96(IRAB) CRO} ; ; 
9E 60 B940 51 28 00030 MOVC3 R1, a96(IRAB)CROJ, a(SP)+ : ; 
04 11 00043 BRB 3$ + 1065 ; 
08 AE 02 BA 00045 28: BICB2 #2, FLAGS + 1083 ; 
05 08 AE 00 £4 00049 3$: BBSC #0, FLAGS, 4$ : 1101 ; 
44 08 AE 01 £1 0004E BBC #1. FLAGS, 7$ + 1103 : 
76 AD BS 0008s 4S: TSTW  118(IRAB) > 1105 ; 
3F 12 00056 BNEQ 7$ : : 
Oc AE 56 D0 00058 MOVL § REC_ADDR, TMP_REC_ADDR : 1113 : 
56 04 AE DO 0005¢ MOVL  BEG-OF_SIDR, REC_ADDR £1114 ; 
51 01 ce 90060 MNEGL #1,7R1 : 1116 : 
00006 30 0006 BSBW  RMSREC_OVHD ; ; 
56 50 CO 00066 ADDL2 RO, REC_ADDR : ; 
14 1c =A? 36 E1 4 BBC #6, 28(IDX_DFN), 5$ : 1118 : 
5C 1 0 006 MOVL : 1125) : 
50 00B4 CA 3C 90071 MOVZWL 180(IFAB), RO : 1126 : 
60 8940 9F 00076 PUSHAB @96(IRAB) (RO) ; | : 
00006 30 O007A BSBW §RMSRECORD_KEY : : 
5E 04 CO 0007D ADDL2 #4, SP ; : 
11. 11 00080 RB $$ > 1118) ; 
51 20 A? A 00 2 5$ MOVZBL (10x DFN), R1 > 1129 : 
50 00B4 CA 3C 000 MOVZWL 180(IFAB), RO : : 
50 60 Ad CO 00088 ADDL ¢ 96(IRAB), RO ; : 
60 6 51 28 0008F MOVCS R1, (REC’ADDR), (RO) : : 
é oc AE 50 9 93 $$: MOVL §§ TMP_REC_ADDR, REC_ADDR > 1131) ; 
bE 36 D1 00097 7$: CMPL = RECTADDR, END_OF_SIDR > 1140 : 
03 1 OOO9A BLSSU-8$ : | : 
| 
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RMSSSIDR 1Sese -1984 02:07:5 VAX=-11 Bliss=-32 V4.0-74 Page 30 
v0G= RMSSEARCH_SIDR 12-308-1 382 ¢: 1:4 DL EKSVMEMASTER CAMS. SRCIRMSSSIDR.B32°4° i’ 
4F 11 158 BRB 21$ ; 
04 AE p 15D 178:  MOVL REC_ADDR, BEG_OF_SIDR : 1308 
00006 161 SBW «=s RMSSIDR_END > 1309. 
73 DO 00164 VL RO, END-OF_SIDR : | 
F ps 167 CLRL 0s = §P) + 1311) 
00006 169 SBW_ - RMSSIDR_FIRST : 
5E 4 (0 0016¢ ADDL2 #4, SP : | 
56 9 D 16 OVL RO. REC_ADDR : | 
7 =A Bs 1 CLRW =: 1 1B CIRAB) + 1312) 
FED1 31 0017 BRW 3$ + 1091 
32 10 aE £8 00178 18%: BLBS TATUS, 22$ : 1329 
20 Ad BB Oorze TSTL $C 1RAB) ; 1336 | 
54 0 88 bd 0O1a) fovE CIRAB), 808 : 1338 
38 AD D4 O13 CLRL 35 {RAB : 
re b4 1 CLRL = = (SP) : 
00006 30 18A BSBW RMSRLSBKT : 
SE 04 CO 001 ADDL2 #4, SP : 
8282 BF 10 AE 6100190 19$:  CMPW STATUS, #33458 + 1340 
08 if 0196 BNEQ : 
Oc «AB 10 AE 0019 MOVL § STATUS, 12(RAB) + 1343 
10 AE 8434 BF 3C 0190 MOVZ2WL #33844. STATUS > 1344 
42. Ad 80 8F BA OO1A3 20S: 1CB2 8, 66CIR + 13467 
50 10 AE DO 00148 MOVL STATUS, RO : 1357 
40 11 OO1AC 218: BRB 24$ : 
54 3c 60 AD-s«=DO OOTAE 22$: MOVL 60(IRAB), BDB + 1365 
3¢ ADS 00182 CLRL  60(IR : 1366 
70 ag 1¢ A& DO 001B MOVL  28(BDB), 112(IRAB) + 1368 
53 56 DO 001BA MOVL § REC_ADDR, SAVE_REC_ADDR : 1370 
04 AE 00 0018p MOVL § BEG-OF_SIDR, REC_ADDR : 1371 
01 bp 01C1 PUSHL #1 : 1372 
00006 30 001¢3 BSBW  RMSSIDR_FIRST : 
SE 04 CO 0016 ADDL2 , ; 
7c «OAD 51 DO 001C9 MOVL 1, 124(IRAB) : 
0082 9 52 BO 001CD MOVW R2. 130(IRAB) ; 
56 53 D0 00102 MOVL § SAVE_REC_ADDR, REC_ADDR + 1373 
42 Aad 95 0010 TSTB 66(IRAB) : 1376 
04 18 00108 BGEQ 23$ : 
OA Ab 08 88 OO1DA BISB2 #8, 10(BDB) : 1378 
44 Be QOIDE 238: CLRL -(SP) : 1380 
00006 30 OOrE BSBW RMSRLSBKT : 
SE 04 CO OIE ADDL : 
42. Ad 80 8F 8A 001E6 BICB2 #128, 66(IRAB) + 1381 
20 1 D0 O1EB MOVL #1, RO F 1385 
E C CO OO1EE 246%: ADDL2 #28, SP : 1386 
3¢ BA OO1F1 POPR #*M<R2,R3,R4,R5> : 
5 001F3 RSB 3 


; Routine Size: 500 bytes, Routine Base: RMSRMS3 + 0160 


3 1326 1387 1 

i 1327 1388 1 END 

; 1358 1389 1 

3 13 1390 0 ELUDOM 


H 11 
RM3SSIDR 16-Sep-1984 06: ot? VAX-11 Bliss-32 V4.0-74 31 
v04- RMSSEARCH_SIDR 1a-8ep -1984 1 DISKSVMSMASTER: ohne? SRC RM3SSIDR. B32. a (4) 
| 
: PSECT SUMMARY 
: Name Bytes Attributes 
: RMSRMS3 852 NOVEC.NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
Py a ee 2 el Symbols -------- Pages Processing 
5 File Total. Loaded Percent Mapped Time 
: _$255$DUA28:CRMS.OBJIRMS.L32;1 3109 70 2 154 00:00.4 
é COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:RM3SSIDR/OBJ=OBJ$:RM3SSIDR MSRC$:RM3SSIDR/UPDATE=(ENHS:RM3SSIDR) 
3 Size: 852 code ; 0 data bytes 
3; Run Time: 00:23.7 
3; Elapsed Time: 00:48.1 
3 Lines/CPU Min: 3513 
3 Lexemes/CPU-Min: 14567 
; pemeey Used: 195 pages 
3; Compilation Complete 
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